home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 39 / Amiga Format CD39 (1999-04-13)(Future Publishing)(GB)[!][issue 1999-05].iso / -seriously_amiga- / cd-rom / mcdp / mcdp_install < prev    next >
Text File  |  1999-03-02  |  4KB  |  173 lines
  1. (welcome "Welcome to the MCDPlayer installation utility.")
  2.  
  3. (set @default-dest
  4.    (askdir
  5.       (prompt "Where would you like MCDP to be installed?")
  6.       (help "Choose a directory to install the program ind its other\nfiles into.")
  7.       (default "SYS:Utilities/")
  8.    )
  9. )
  10.  
  11. (if
  12.    (askbool
  13.       (prompt "Should I create a new directory in\n" @default-dest "?")
  14.       (help "Yes = install MCDP here.\nNo  = install MCDP in here/MCDP")
  15.       (default 0)
  16.    )
  17.    (set @default-dest
  18.       (tackon @default-dest "MCDP/")
  19.    )
  20. )
  21.  
  22. (set FileThere
  23.    (exists @default-dest
  24.       (noreq)
  25.    )
  26. )
  27.  
  28. (if
  29.    (= FileThere 1)
  30.    (abort @default-dest "\nis a file. I can't install MCDP here.")
  31. )
  32.  
  33. (if
  34.    (= FileThere 0)
  35.    (makedir @default-dest)
  36. )
  37.  
  38. (set DoPatch 0)
  39.  
  40. (copyfiles
  41.    (prompt "Copying player...")
  42.    (source "")
  43.    (choices "MCDPlay" "MCDPlay.info")
  44.    (dest @default-dest)
  45. )
  46.  
  47. (copyfiles
  48.    (prompt "Copying default CDDB setup...")
  49.    (source "")
  50.    (choices "CDDB_List")
  51.    (dest @default-dest)
  52.    nofail
  53.    force
  54. )
  55.  
  56. (copyfiles
  57.    (prompt "Installing fonts...")
  58.    (source "Fonts/")
  59.    (all)
  60.    (dest "FONTS:")
  61. )
  62.  
  63. (if
  64.    (askbool
  65.       (prompt "Do you want the CD definitions installed?")
  66.       (help "MCDP comes with many CD listings. This section installs them.")
  67.       (default 1)
  68.    )
  69.    (
  70.       (message "Installing disc descriptions...")
  71.       (run "lha x Disks.lha " @default-dest)
  72.    )
  73.    (if (= 0 (exists (tackon @default-dest "Disks")))
  74.       (makedir (tackon @default-dest "Disks"))
  75.    )
  76. )
  77.  
  78. (tooltype
  79.    (prompt "Setting the default disc directory...")
  80.    (dest
  81.       (tackon @default-dest "MCDPlay")
  82.    )
  83.    (settooltype "SongPath"
  84.       (tackon @default-dest "Disks/")
  85.    )
  86. )
  87.  
  88. (if 
  89.   (askbool
  90.      (prompt "Do you want to install the default control panel images?")
  91.      (help "MCDP comes with two custom control panels")
  92.      (default 1)
  93.   )
  94.   (copyfiles
  95.      (prompt "Install the control panel images?")
  96.      (source "")
  97.      (help "Gimme a dir")
  98.      (choices "Panel.black" "Paneld.black" "Panel.gold" "Paneld.gold")
  99.      (dest @default-dest)
  100.   )
  101. )
  102.  
  103. (if 
  104.   (askbool
  105.      (prompt "Do you want to install the control panel image template?")
  106.      (help "These images allow you to create your own control panels")
  107.      (default 1)
  108.   )
  109.   (copyfiles
  110.      (prompt "Install the control panel images?")
  111.      (source "")
  112.      (help "Gimme a dir")
  113.      (choices "Panel.template" "Paneld.template" "Panel.gold" "Paneld.gold")
  114.      (dest @default-dest)
  115.   )
  116. )
  117.  
  118. (if
  119.   (askbool
  120.     (prompt "Do you want to add comments to existing CD definitions?")
  121.     (help "I can add the CD title as a comment to each definition you have.")
  122.     (default 1)
  123.   )
  124.   (
  125.     (message "Adding comments to disc IDs...")
  126.     (run (cat "AddCDComment " (tackon @default-dest "Disks/")))
  127.   )
  128. )
  129.  
  130. (tooltype
  131.    (dest (tackon @default-dest "MCDPlay"))
  132.    (settooltype "FONTNAME"
  133.       (select 
  134.          (askchoice
  135.             (prompt "Which font do you want to use?")
  136.             (help "Choose the default font.")
  137.             (default 0)
  138.             (choices
  139.                "Standard"
  140.                "Dot"
  141.                "LCD"
  142.             )
  143.          )
  144.          "MCDP_STD.font"
  145.          "MCDP_DOT.font"
  146.          "MCDP_LCD.font"
  147.       )
  148.    )
  149. )
  150.  
  151. (tooltype
  152.    (dest (tackon @default-dest "MCDPlay"))
  153.    (settooltype "XPOS" "0")
  154.    (settooltype "YPOS" "14")
  155. )
  156.  
  157. (copyfiles
  158.    (prompt "Where do you want the documentation installed?")
  159.    (help "Gimme a dir")
  160.    (source "")
  161.    (choices "MCDPlayer.Doc" "MCDP_ARexx.doc")
  162.    (dest @default-dest)
  163.    (infos)
  164.    (confirm)
  165. )
  166.  
  167. (exit
  168.    "MCDPlay is now installed in your " @default-dest " directory.\n\n"
  169.    "If you are going to use the CDDB feature, remember to set the\n"
  170.    "USERNAME and DOMAIN tooltypes."
  171.    (quiet)
  172. )
  173.